fibs = 1:1:zipWith (+) fibs (tail fibs)
evens_lt_4mill = [ x | x <- take 50 fibs, x < 4000000, x `mod` 2 == 0 ]
euler_002 = foldr (+) 0 evens_lt_4mill
	